﻿Imports eCart.DataAccess
Imports eCart.BusinessEntity
Public Class blCustomers
    Function GetListado(Optional pBusqueda As String = "") As List(Of beCustomers)
        Dim oDA As New daCustomers
        Return oDA.GetLista(pBusqueda)
    End Function

    Sub Escribir(ByVal pCustomerID As String,
                      ByVal pCompanyName As String,
                      ByVal pContactName As String,
                        ByVal pContactTitle As String,
                        ByVal pAddress As String,
                        ByVal pCity As String,
                        ByVal pRegion As String,
                        ByVal pPostalCode As String,
                        ByVal pCountry As String,
                        ByVal pPhone As String,
                        ByVal pFax As String,
                        ByVal pModo As Integer)
        Dim oDA As New daCustomers
        oDA.Escribir(pCustomerID,
                     pCompanyName,
                     pContactName,
                     pContactTitle,
                     pAddress,
                     pCity,
                     pRegion,
                     pPostalCode,
                     pCountry,
                     pPhone,
                     pFax,
                     pModo)
    End Sub

    Function GetCustomerById(ByVal pCustomerID As String) As beCustomers
        Dim oDA As New daCustomers
        Return oDA.GetCustomerById(pCustomerID)
    End Function
End Class
